10 POKE53280,0:POKE53281,0:POKE646,7
20 POKE59468,14:AD=0:POKE53272,23
30 GOSUB270
40 INPUT"[147][198]ILE NAME[160]";F$
50 IFF$=""THENEND
60 INPUT"P[146]RG ODER S[146]EQ[160][160]S[157][157][157]";T$
70 IFT$<>"S"ANDT$<>"P"THENPRINT"[145][145][145]":GOTO60
80 INPUT"[196]RIVE #[160][160]0[157][157][157]";DR$
90 IFDR$<"0"ORDR$>"1"THENPRINT"[145][145][145]":GOTO80
100 INPUT"[196]EVICE(DRUCKER=4, SCREEN=3)[160][160]3[157][157][157]";DV$
110 IFDV$<"3"ORDV$>"4"THENPRINT"[145][145][145]":GOTO100
120 DV=VAL(DV$):OPENDV,DV
130 OPEN15,8,15
140 PRINT"[147]";
150 OPEN2,8,2,DR$+":"+F$+","+T$+",R":GOSUB230
160 IFT$="P"THENGET#2,A$,B$:SA=ASC(B$)*256+ASC(A$):PRINT"START ADDR=";SA
170 GET#2,A$:IFST=64THENCLOSE2:CLOSEDV:CLOSE15:POKE59468,12:END
180 PRINT#DV,A$;
190 IFA$=CHR$(13)THENPRINT#DV,CHR$(10)
200 GETZZ$:IFZZ$=""THEN170
210 GETZZ$:IFZZ$=""THEN210
220 GOTO170
230 INPUT#15,A$,B$,C$,D$
240 IFA$="00"THENRETURN
250 PRINTA$","B$","C$","D$
260 CLOSE2:CLOSEDV:CLOSE15:POKE59468,12:END
270 PRINT"[147][196]IESES [208]ROGRAMM ZEIGT [196]IR DEN [201]NHALT"
280 PRINT"VON [211][197][209] - [198]ILES. [218]UM [193]NHALTEN DER [193]US-
290 [153]"GABE, DRUECKE (null)(null)ATNLENVALWAIT. (null)OCHMALS ZUM"
300 [153]"ASCORTSETZEN."
310 [153]"           (null)ATN(null)(null)VAL STR$(null)(null)VALLEN(null)VAL(null) WAIT"
320 [161]ZZ$:[139]ZZ$[178]""[167]320
330 [142]